home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / FN FieldRect / FN fieldRect
Text File  |  1991-07-18  |  444b  |  24 lines
  1.  
  2.  
  3. LONG FN fieldRect(rectPtr&)
  4.   frHndl& = TEHANDLE(WINDOW(0))
  5.   BLOCKMOVE PEEK LONG(frHndl&),rectPtr&,8
  6. END FN
  7. '
  8. '==========================================================================
  9. '
  10. WINDOW 1:COORDINATE WINDOW:TEXT 0,12,0,0
  11. EDIT FIELD 1,"This is a test",(20,20)-(200,200),2
  12. DIM t,l,b,r
  13. FN fieldRect(VARPTR(t))
  14. PRINT%(20,220)"Field's rect is... T ="t" L ="l" B ="b" R ="r
  15.  
  16. '
  17. "Loop"
  18. DIALOG ON :BREAK ON
  19. DIALOG OFF:BREAK OFF
  20.  
  21. GOTO"Loop"
  22.  
  23.  
  24.